home *** CD-ROM | disk | FTP | other *** search
/ APDL Eductation Resources / APDL Eductation Resources.iso / programs / astronomy / skyview / !SkyView / h / ecliptic < prev    next >
Encoding:
Text File  |  1992-10-10  |  2.9 KB  |  73 lines
  1. /********************************************************/
  2. /*                       ecliptic.h                     */
  3. /*     Header file for utility functions concerning     */
  4. /*            ecliptic latitude and longitude.          */
  5. /********************************************************/
  6.  
  7. /*-------------------- ecliptic_obliq --------------------
  8.  * Description: Returns the obliquity of the ecliptic at
  9.  *              a specified instant.
  10.  *
  11.  * Parameters:  double T -- Julian centuries from noon GMT
  12.  *                          on 0/1/1900 to required instant.
  13.  * Returns:     obliquity of ecliptic, in radians.
  14.  * Other info:  none.
  15.  */
  16.  
  17.   double ecliptic_obliq(double T);
  18.                                                           
  19.  
  20. /*-------------------- ecliptic_kepler -------------------
  21.  * Description: Solves Kepler's equation.
  22.  *
  23.  * Parameters:  double M     -- Mean anomaly.
  24.  *              double e     -- Eccentricity.
  25.  *              double *Eptr -- Pointer to double to fill in with
  26.  *                              eccentric anomaly.
  27.  * Returns:     TRUE if eccentric anomaly converged OK, FALSE if
  28.  *              there was a problem (in which case *Eptr may be
  29.  *              a poor approximation).
  30.  * Other info:  All angles in radians.  *Eptr may be < 0 or > 2 Pi.
  31.  */
  32.  
  33.   BOOL ecliptic_kepler(double M, double e, double *Eptr);
  34.  
  35.  
  36. /*------------------ ecliptic_sunorbit -------------------
  37.  * Description: Calculates the elements of the Sun's "orbit"
  38.  *              for the instant implied by T.
  39.  *
  40.  * Parameters:  double T     -- No. of Julian centuries from
  41.  *                              noon GMT on 0/1/1900.
  42.  *              double *Lptr -- Ptr to double to fill in with mean
  43.  *                              longitude.
  44.  *              double *Mptr -- Ptr to double to fill in with mean
  45.  *                              anomaly.
  46.  *              double *eptr -- Ptr to double to fill in with eccentricity.
  47.  * Returns:     void.
  48.  * Other info:  All angles in radians, in range 0 <= angle < 2 Pi.
  49.  */
  50.  
  51.   void ecliptic_sunorbit(double T, double *Lptr, double *Mptr, double *eptr);
  52.  
  53.  
  54.  
  55. /*-------------------- ecliptic_radec --------------------
  56.  * Description: Converts ecliptic latitude and longitude
  57.  *              to right ascension and declination (radians).
  58.  *
  59.  * Parameters:  REAL elatit  -- ecliptic latitude.
  60.  *              REAL elongit -- ecliptic longitude.
  61.  *              double T     -- Julian centuries from noon GMT on
  62.  *                              0/1/1900 to required instant.
  63.  *              REAL *raptr  -- pointer to REAL to fill in
  64.  *                              with right ascension.
  65.  *              REAL *decptr -- pointer to REAL to fill in
  66.  *                              with declination.
  67.  * Returns:     void.
  68.  * Other info:  All angles in radians.
  69.  */
  70.  
  71.   void ecliptic_radec(REAL elatit, REAL elongit, double T, 
  72.                       REAL *raptr, REAL *decptr);
  73.